home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / tools / cpx_acc / cpxbasic / beispiel / test.bas < prev    next >
Encoding:
BASIC Source File  |  1994-09-22  |  104 b   |  6 lines
  1. 10  INPUT 'anz: ';x
  2. 20  FOR i=1 TO x
  3. 30    FPRINT 'x=';i;'x^2=',SQU i
  4. 40  NEXT
  5. 50  IF x<>0 THEN 10
  6.